home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / os2 / home2.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-03-14  |  1KB  |  52 lines
  1. /* REXX program to install Home/2 */
  2.  
  3. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  4. Call sysloadfuncs
  5.  
  6. Call SysCls
  7.  
  8. say "                       Welcome to the Home/2 installer."
  9. say ""
  10. say "This program will do the following:"
  11. say ""
  12. say "It will create a desktop folder with a program object for Home/2, a template"
  13. say "for ZIP files, and an object for the Readme file. The Home/2 Object will be"
  14. say ""
  15.  
  16. say "Should I continue? (Y/N)"
  17. PARSE PULL reply
  18. if reply = "N" | reply = "n" then exit
  19.  
  20. curdir = Directory()
  21.  
  22. Error = 0
  23.  
  24. if SysCreateObject("WPFolder", "Home/2", "<WP_DESKTOP>", "OBJECTID=<HOME/2_FOLDER>") then
  25.   say "Home/2 Folder created ..."
  26. else do
  27.   say "Could not create Home/2 folder!"
  28.   Error = 1
  29. end
  30.  
  31. if SysCreateObject("WPProgram", "Home/2", "<HOME/2_FOLDER>", "EXENAME="curdir"\HOME.EXE;STARTUPDIR="curdir) then
  32.   say "Home/2 Program Object created ..."
  33. else do
  34.   say "Could not create Home/2 Program Object!"
  35.   Error = 1
  36. end
  37.  
  38. if SysCreateObject("WPProgram", "Readme", "<HOME/2_FOLDER>", "EXENAME=e.exe;PARAMETERS="curdir"\readme.doc") then
  39.   say "Readme Object created ..."
  40. else do
  41.   say "Could not create Readme Object!"
  42.   Error = 1
  43. end
  44.  
  45. say ""
  46. if Error then do
  47. say "Some or all of the objects could not be automatically installed!"
  48. end  
  49. else do
  50. say "All objects have been installed."
  51. end
  52.